home *** CD-ROM | disk | FTP | other *** search
- 100 for x = 49152 to 49488:ready:s=s+y
- 110 if y<0 or y>255 then 130
- 120 poke x,y:next:goto140
- 130 print"[147]**error**":print"please check line"peek(64)*256+peek(63):end
- 140 if s<>44677 then print"[147]**error**":print"please check data lines 170-500":end
- 150 print"[147]":poke53280,0:poke53281,6:poke646,1
- 160 print" c-64 bug repellent installed "
- 170 data32,161,192,165,43,133,251,165,44,133
- 180 data252,160,0,132,254,32,37,193,234,177
- 190 data251,208,3,76,138,192,230,251,208,2
- 200 data230,252,76,43,192,76,73,78,69,32
- 210 data35,32,0,169,35,160,192,32,30,171
- 220 data160,0,177,251,170,230,251,208,2,230
- 230 data252,177,251,32,205,189,169,58,32,210
- 240 data255,169,0,133,253,230,254,32,37,193
- 250 data234,165,253,160,0,76,13,193,133,253
- 260 data177,251,208,237,165,253,41,240,74,74
- 270 data74,74,24,105,65,32,210,255,165,253
- 280 data 41,15,24,105,65,32,210,255,169,13
- 290 data32,220,192,230,63,208,2,230,64,230
- 300 data251,208,2,230,252,76,11,192,169,153
- 310 data160,192,32,30,171,166,63,165,64,76
- 320 data231,192,96,76,73,78,69,83,58,32
- 330 data0,169,247,160,192,32,30,171,169,3
- 340 data133,254,32,228,255,201,83,240,6,201
- 350 data80,208,245,230,254,32,210,255,169,4
- 360 data166,254,160,255,32,186,255,169,0,133
- 370 data63,133,64,133,2,32,189,255,32,192
- 380 data255,166,254,32,201,255,76,73,193,96
- 390 data32,210,255,173,141,2,41,1,208,249
- 400 data96,32,205,189,169,13,32,210,255,32
- 410 data204,255,169,4,76,195,255,147,83,67
- 420 data82,69,69,78,32,79,82,32,80,82
- 430 data 73,78,84,69,82,32,63,32,0,76
- 440 data44,193,234,177,251,201,32,240,6,138
- 450 data113,251,69,254,170,138,76,88,192,0
- 460 data0,0,0,230,251,208,2,230,252,96
- 470 data170,177,251,201,34,208,6,165,2,73
- 480 data255,133,2,165,2,208,218,177,251,201
- 490 data32,208,212,198,254,76,29,193,0,169
- 500 data13,76,210,255,0,0,0
-